home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / amos / sillysource1.lha / COLOURING BOOK.AMOS / COLOURING BOOK.amosSourceCode < prev    next >
AMOS Source Code  |  1996-09-07  |  3KB  |  118 lines
  1. Screen Open 1,320,256,16,Lowres : Curs Off : Flash Off : Screen Hide 1 : Hide On 
  2. Unpack 10 To 1
  3. Dir$=Dir$+"COLBOOK"
  4. Track Play 3 : Break Off 
  5. Repeat 
  6. Inc CHECK : P$="COLOUR"+Str$(CHECK)-" "+".ABK"
  7. If Exist(P$) Then Inc ESCR
  8. Until Exist(P$)=0
  9. Wait 20 : While Mouse Key=0 : Wend 
  10. Track Stop : Fade 3 : Wait 45 : Track Play 4
  11.  
  12. Screen Open 2,320,200,16,Lowres : Curs Off : Screen Hide 2
  13. Screen Open 3,320,200,16,Lowres : Curs Off : Screen Hide 3 : SE=2 : SCR=1 : CO=1
  14. Dim ZX(25),ZY(25) : MUS=1 : Track Loop On 
  15. ERRM:
  16. Unpack 6 To 2 : Screen 2
  17. Unpack 5 To 1 : Wait Vbl 
  18. Screen Copy 2 To 3
  19. Screen Copy 2,64,6,315,143 To 1,64,6
  20. Locate 25,19 : Paper 0 : Print Space$(3) : Locate 25,19 : Print SCR
  21. SETUP:
  22. Reserve Zone 25 : Restore : Show On 
  23. For X=1 To 25
  24. Read A,B,C,D : ZX(X)=A : ZY(X)=B : Set Zone X,A,B To C,D
  25. Next X
  26. Reset Zone 1
  27. MAIN:
  28. Bob 1,ZX(SE),ZY(SE),1
  29. Ink CO : Wait 20 : Repeat 
  30. CH=Mouse Zone : X=X Screen(X Mouse) : Y=Y Screen(Y Mouse)
  31. Until Mouse Key=1 and CH<>0
  32. Rem CHOOSE A COLOUR
  33. If CH<17 Then Ink CH-1 : CO=CH-1 : SE=CH : Goto MAIN
  34. Rem TOGGLE MUSIC ON AND OFF
  35. If CH=21 and MUS=0 Then MUS=1 : Track Play 4 : Goto MAIN
  36. If CH=21 and MUS=1 Then MUS=0 : Track Stop : Goto MAIN
  37.  
  38. Rem QUIT THE GAME
  39. If CH=23 Then Track Stop : Hide On : Wait 20 : Fade 3 : Wait 60 : Screen Hide 2 : Screen Hide 3 : End 
  40. Rem START AGAIN
  41. If CH=20 Then Bob Off : Wait Vbl : Screen Copy 3 To 2 : Screen Copy 2,64,6,315,143 To 1,64,6 : Goto MAIN
  42. Rem LOOK AT PICTURE
  43. If CH=17
  44. Bob Off : Hide On : Screen To Back 1 : Screen To Front 2
  45. Wait 20 : While Mouse Key=0 : Wend 
  46. Screen To Front 1
  47. Show On : Goto MAIN
  48. End If 
  49. Rem SAVE A PICTURE 
  50. If CH=22
  51. D$=Dir$ : Bob Off 
  52. Screen To Back 1
  53. P$="COLOUR"+Str$(SCR)-" "+".IFF"
  54. F$=Fsel$("*.IFF",P$)
  55. If F$=""
  56. Dir$=D$ : Goto DEANO
  57. End If 
  58. SPACE=Dfree
  59. If SPACE<30000
  60. Boom : Wait 20
  61. Dir$=D$ : Goto DEANO
  62. End If 
  63. Screen To Front 2 : Screen 2
  64. Save Iff F$
  65. DEANO:
  66. Screen To Front 1 : Screen 1 : Reset Zone : Dir$=D$ : Goto SETUP
  67. End If 
  68. Rem PRINT PICTURE  
  69. If CH=19
  70. D$=Dir$ : Bob Off : Printer Open 
  71. Screen To Back 1 : Screen To Front 2 : Screen 2 : Wait 50
  72.  
  73. If Printer Online=-1
  74. Printer Dump 
  75. Printer Close : Goto DEANO
  76. End If 
  77.  
  78. Printer Close : Goto DEANO
  79. End If 
  80.  
  81. Rem LOAD ANOTHER PICTURE 
  82. If CH=24 or CH=25 Then Goto PICCY
  83.  
  84. Rem PAINT THE AREA 
  85. If CH=18
  86. Bob Off : Screen To Back 1 : Screen To Front 2
  87. End If 
  88. Wait 20 : Screen 2 : Repeat 
  89. X=X Screen(X Mouse) : Y=Y Screen(Y Mouse)
  90. TEST=Point(X,Y)
  91. If Mouse Key=1 and TEST<>0 Then Ink CO : Paint X,Y : Wait 10
  92. Until Mouse Key=2
  93. Screen To Front 1
  94. Screen Copy 2,64,6,315,143 To 1,64,6
  95. Screen 1 : Reset Zone : Goto SETUP
  96.  
  97. PICCY:
  98. If CH=24 and SCR=1 Then Goto MAIN
  99. If CH=24 and SCR>1 Then Dec SCR
  100. If CH=25 and SCR=ESCR Then Goto MAIN
  101. If CH=25 and SCR<ESCR Then Inc SCR
  102. F$="COLOUR"+Str$(SCR)-" "+".ABK"
  103. Erase 6 : Load F$,6 : Reset Zone : Goto ERRM
  104. Goto MAIN
  105.  
  106. Data 5,5,30,21,5,25,30,42,5,45,30,62,5,65,30,82,5,85,30,102,5,105,30,122
  107. Data 5,125,30,142,5,145,30,162,34,5,60,22,34,25,60,42,34,45,60,62,34,65
  108. Data 60,82,34,85,60,102,34,105,60,122,34,125,60,142,34,145,60,162
  109.  
  110. Data 5,167,60,195
  111. Data 65,168,94,195
  112. Data 98,168,128,195
  113. Data 130,168,185,195
  114. Data 188,168,245,195
  115. Data 248,168,315,195
  116. Data 248,147,315,163
  117. Data 190,150,200,161
  118. Data 232,150,243,161